note
	description: "Summary description for {MC72}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MC72
feature {ANY}
 m2:MISIL


	Preparar_Misil is
			--

		local
			j:BOOLEAN
control:INTEGER
            do

    if (Hay_misil=true) then

            	if (j=false) then
					m2:=Setup_misil
                    control:=1
						Cargar_misil(m2)
		   end
 end
             rescue
           if control=1 then
           	j:=true
             	retry
end

             end


	Apuntar_misil (s: STRING)is
			--
			local
				control:INTEGER

		do
       m2.fijar_blanco (s)
			end

 Lanzar_misil is
 		--

 		do
 		m2.despegar
 	
 		 end


Hay_misil():BOOLEAN is
local
		r: RANDOM
		t:DATE_TIME
		do
create r.make
create t.make_now
r.set_seed(t.seconds)

 if ((r.next_random (t.seconds)\\2) = 0) then
result:=false
else
	result:=true

end
end

Setup_misil():MISIL is
local
mis: MISIL
do
!!mis
Result:= mis
end

Cargar_Misil(mi2: MISIL) is
do
	mi2.activar

end


end
